Workflow

  1. Get the data
library(haven)
package ‘haven’ was built under R version 4.0.3
cars <- read_sas("http://www.principlesofeconometrics.com/sas/cars.sas7bdat", 
    NULL)
library(tidyverse)
library(plotly)

plot <- cars %>%
 filter(MPG >= 28L & MPG <= 47L) %>%
 ggplot() +
 aes(x = MPG, y = ENG) +
 geom_point(size = 1L, colour = "#0c4c8a") +
 theme_minimal()

ggplotly(plot)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayAtIE5ldyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKV29ya2Zsb3cKCjEuIEdldCB0aGUgZGF0YQoKYGBge3J9CmxpYnJhcnkoaGF2ZW4pCmNhcnMgPC0gcmVhZF9zYXMoImh0dHA6Ly93d3cucHJpbmNpcGxlc29mZWNvbm9tZXRyaWNzLmNvbS9zYXMvY2Fycy5zYXM3YmRhdCIsIAogICAgTlVMTCkKYGBgCgoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHBsb3RseSkKCnBsb3QgPC0gY2FycyAlPiUKIGZpbHRlcihNUEcgPj0gMjhMICYgTVBHIDw9IDQ3TCkgJT4lCiBnZ3Bsb3QoKSArCiBhZXMoeCA9IE1QRywgeSA9IEVORykgKwogZ2VvbV9wb2ludChzaXplID0gMUwsIGNvbG91ciA9ICIjMGM0YzhhIikgKwogdGhlbWVfbWluaW1hbCgpCgpnZ3Bsb3RseShwbG90KQpgYGAK